Valid as of 12/09/2012


//FNzzzzIN JOB (FNzzzz),'INCOMING AGING RPT',
//     REGION=4096K,MSGCLASS=A,TIME=(,10) 
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
/*PASSWORD ???????
//************************************************************
//*                                                          *
//*     F A S T E R   INCOMING AGING REPORT                  *
//*                                                          *
//************************************************************
//*
//*  THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//DELSTEP EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'FN.zzzz.INCOMING.AGING.REPORT'
DELETE 'FN.zzzz.INCOMING.AGING.RECORDS'
//********************************************************************
//*                 PARAM CARD VALUES                                *
//*                                                                  *
//*   INCOMING      POS  1 -  8 =  BEGIN DATE (MMDDYYYY) OR 00000000 *
//*                 POS  9 - 16 =  END DATE (MMDDYYYY) OR 00000000   *
//*    AGING        POS 17 - 17 =  OUTPUT TYPE                       *
//*                                P - REPORT ONLY                   *
//*    REPORT                      F - FILE ONLY                     *
//*                                B - REPORT AND FILE               *
//*                 POS 18 - 18 =  TRANSCRIPT TYPE                   *
//*                                F - FASTER ONLY                   *
//*                                B - BRIGHT FUTURES ONLY           *
//*                            BLANK - BOTH                          *
//*                 POS 19 - 25 =  SENDING INSTITUTION               *
//*                                REPORT ONLY REC'DS SENT BY THIS   *
//*                                INSTITUTION                       *
//********************************************************************
//SRTS22   EXEC PGM=IKJEFT01 
//PARAM    DD *
MMDDYYYYMMDDYYYYB
//SYSPRINT DD SYSOUT=A
//SYSOUT   DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR   DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN  DD *
 DSN SYSTEM(DSN)
 RUN  PROGRAM(SRTS22) PLAN(FNSRTS22) -
      LIB('FRN.DISTRICT.LINKLIB')
 END
//AGERPT   DD DSN=FN.zzzz.INCOMING.AGING.REPORT,    
//         DISP=(NEW,CATLG),
//         DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0,DSORG=PS),
//         UNIT=SYSDA,STORCLAS=SCFNSTD,
//         SPACE=(TRK,(50,50),RLSE)                              
//AGEFILE  DD DSN=FN.zzzz.INCOMING.AGING.RECORDS,    
//         DISP=(NEW,CATLG),
//         DCB=(RECFM=FB,LRECL=1020,BLKSIZE=0,DSORG=PS),
//         UNIT=SYSDA,STORCLAS=SCFNSTD,
//         SPACE=(TRK,(50,50),RLSE)
//